TITLE UDPZER	ZERO THE UDP WITH PROTECTION KMC.
;THIS PROGRAM WRITES IN THE FIRST 3 WORDS OF THE KIDS SECTION OF THE UDP
;IT SETS WORD 0 OF 1ST BLOCK OF SECTION TO 0.(NO. OF ENTRIES)
;IT SETS WORD 1 OF 1ST BLOCK OF SECTION TO THE CURRENT DATE.
;IT SETS WORD 2 OF 1ST BLOCK OF SECTION TO 2+PAKST (NEXT FREE BLK NO.).
	;(NEXT FREE BLOCK IS 1ST AFTER DIRECTORY).
	;(DIRECTORY IS 2 BLOCKS LONG).
	;(BLOCK NUMBER OF DIRECTORY IS GIVEN BY PAKST).

A←1
B←2
PAKST ←	1		;ALLOW FOR SOME OTHER USE OF PART OF PACK

START:	;FIRST INIT THE UDP.
	INIT	1,17
	SIXBIT	/UDP/
	0
	JRST	[OUTSTR [ASCIZ /CANNOT INIT UDP/]
		 CALL [SIXBIT /EXIT/]]

	ENTER	1,[SIXBIT /KMC/
		   0
		   0
		   0           ]
	JRST	[OUTSTR [ASCIZ /CURRENT PAK PROTECTED/]
		 CALL [SIXBIT /EXIT/]]

	CALL	A,[SIXBIT /DATE/]
	MOVEM	A,WORD1
	MOVEI	A,2+PAKST
	MOVEM	A,WORD2

	OUTPUT	1,[IOWD 4,WORD0
		   PAKST]

	RELEAS	1
	CALL [SIXBIT /EXIT/]

WORD0:	0
WORD1:	0			;REPLACED BY DATE.
WORD2:	0			;REPACED BY A BLOCK NUMBER.
	0

END START